home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 134 / Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_B.d64 / dir tracker_tomz (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  67 lines
  1. 10 poke768,226:poke769,252
  2. 100 open4,4,23:close4:dimt$(4):gosub800
  3. 109 print"[156](updated and bug fixed in april 2001.)"
  4. 110 print"[158]   insert a disk and press <return>"
  5. 115 geta$:ifa$<>chr$(13)anda$<>"_"then115
  6. 116 ifa$="_"thenend
  7. 120 data 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
  8. 130 data 230,101,208,10,230,100,208,6,230,99,208,2,230,98,32,228,255,165,144
  9. 140 data 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
  10. 150 forj=860to914:readx:pokej,x:nextj
  11. 160 data "xxx","seq","prg","usr","rel"
  12. 170 forj=0to4:readt$(j):next
  13. 180 input"    printer (y/n)";z$:z=3
  14. 185 ifleft$(z$,1)="n"then220
  15. 190 ifleft$(z$,1)="y"thenz=4:print:input"    date[160][160]*[157][157][157]";d$
  16. 220 open4,z:open1,8,15,"i0":close1
  17. 230 g$="                 "
  18. 240 open1,8,3,"$0"
  19. 250 forj=1to142:get#1,a$:nextj
  20. 260 forj=1to16:get#1,a$:ifa$=chr$(160)goto280
  21. 270 n$=n$+a$
  22. 280 nextj:get#1,a$,a$
  23. 290 forj=1to2:get#1,a$:ifa$=chr$(160)goto310
  24. 300 i$=i$+a$
  25. 310 nextj
  26. 320 forj=1to92:get#1,a$:nextj:gosub800
  27. 325 ifz=4thenprint"       output diverted to printer."
  28. 330 ifz=4thenprint#4,"[158]dir tracker v2.2 tomz";d$:print#4
  29. 340 print:print#4,"    disk: ";n$;"    id: ";i$:print
  30. 341 print#4,"tr sc  typ  blks  file name   s.address[146]"
  31. 342 print#4,"---------------------------------------"
  32. 350 m=m+1:get#1,k$,t$,s$:ifs$=""thens$=chr$(0)
  33. 360 f$="":forj=1to16:get#1,a$:ifa$=chr$(160)goto380
  34. 370 f$=f$+a$:ift$=""thent$=chr$(0)
  35. 380 nextj
  36. 390 forj=1to10:get#1,a$:nextj
  37. 400 l=0:ifa$<>""thenl=asc(a$)
  38. 410 get#1,a$:ifm<8thenget#1,a$,a$:goto430
  39. 420 m=0
  40. 430 sw=st:ifk$=""goto640
  41. 440 k=asc(k$)-128:ifk<1ork>4thenk=0
  42. 460 h$=mid$(str$(asc(t$)),2):print#4,left$(g$,2-len(h$));h$;
  43. 470 h$=mid$(str$(asc(s$)),2):print#4,left$(g$,3-len(h$));h$;"  ";
  44. 480 print#4,t$(k);" ";
  45. 490 h$=mid$(str$(l),2):print#4,left$(g$,4-len(h$));h$;"  ";
  46. 500 print#4,f$;left$(g$,17-len(f$));
  47. 510 ifk=0goto630
  48. 520 ifk=2orf=1thenopen2,8,4,"0:"+f$+","+t$(k)+",r"
  49. 530 a=0:ifk<>2goto570
  50. 540 get#2,a$,b$:a=0:ifa$<>""thena=asc(a$)
  51. 550 b=0:ifb$<>""thenb=asc(b$)
  52. 560 gosub700
  53. 570 iff=0goto620
  54. 580 poke785,92:poke786,3:a=a+usr(0)
  55. 590 ifk<>2thenprint#4,a;"bytes";:goto620
  56. 600 print#4," ";:a%=a/256:a=a-a%*256:b=b+a%
  57. 610 gosub700
  58. 620 close2
  59. 630 print#4
  60. 640 ifsw=0goto350
  61. 650 close1:close4:poke198,0:wait198,1:poke198,0:run
  62. 700 x=b/16:gosub710:x=a/16
  63. 710 forj=1to2:x%=x:x=(x-x%)*16:ifx%>9thenx%=x%+7
  64. 720 print#4,chr$(x%+48);:nextj:return
  65. 800 poke53280,0:poke53281,0:print"[147][151]             [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  66. 810 print"  dir tracker v2.2 coded by tomz/tide.[146]":return
  67.